home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
prog_bas
/
pbc32.zip
/
PBC$BAS.ZIP
/
UNSPLIT.BAS
< prev
next >
Wrap
BASIC Source File
|
1996-04-10
|
2KB
|
30 lines
' +----------------------------------------------------------------------+
' | |
' | PBClone (C) Copyright 1996 Charon Software, All Rights Reserved |
' | |
' +----------------------------------------------------------------------+
DECLARE SUB BkScroll (BYVAL TopRow%, BYVAL LeftCol%, BYVAL BottomRow%, BYVAL RightCol%, BYVAL Times%)
DECLARE SUB DelayV (BYVAL MilliSeconds%)
DECLARE SUB DPutScreen (BYVAL DSeg%, BYVAL DOfs%, BYVAL TopRow%, BYVAL LeftCol%, BYVAL BottomRow%, BYVAL RightCol%, BYVAL Page%, BYVAL Fast%)
DECLARE SUB Scroll (BYVAL TopRow%, BYVAL LeftCol%, BYVAL BottomRow%, BYVAL RightCol%, BYVAL Times%)
SUB UnSplit (Scrn%(), Fast%)
L% = LBOUND(Scrn%)
FOR tmp% = 0 TO 24
Part1% = tmp% * 80
Scroll 1, 1, 25, 20, 1
DPutScreen VARSEG(Scrn%(L% + Part1%)), VARPTR(Scrn%(L% + Part1%)), 25, 1, 25, 20, 0, Fast%
Part2% = 1940 - Part1%
BkScroll 1, 21, 25, 40, 1
DPutScreen VARSEG(Scrn%(L% + Part2%)), VARPTR(Scrn%(L% + Part2%)), 1, 21, 1, 40, 0, Fast%
Scroll 1, 41, 25, 60, 1
Part3% = Part1% + 40
DPutScreen VARSEG(Scrn%(L% + Part3%)), VARPTR(Scrn%(L% + Part3%)), 25, 41, 25, 60, 0, Fast%
BkScroll 1, 61, 25, 80, 1
Part4% = 1980 - Part1%
DPutScreen VARSEG(Scrn%(L% + Part4%)), VARPTR(Scrn%(L% + Part4%)), 1, 61, 1, 80, 0, Fast%
DelayV 10
NEXT
END SUB